open(SNP,"SNP.txt");
$k = 0;
$fline=<SNP>;
$t =1;
$file = "SNP_$t.txt";
$t++;
open(WRBUFF,">$file");
print WRBUFF $fline;
while($line=<SNP>)
{
	if($k == 40000)
	{	
		print "$t\n";
		$file = "SNP_$t.txt";
		$t++;
		open(WRBUFF,">$file");
		print WRBUFF $fline;
		$k =0;
	}
	print WRBUFF $line;
	$k++;
}
